home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / bible menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  60 lines
  1. 5 POKE775,191
  2. 7 REM MENU LOADER BY STEVE WILLIAMS
  3. 8 REM FOR BIBLE SOFTWARE PROGRAMS
  4. 10 PRINT"[147]"CHR$(8):PRINTCHR$(142)
  5. 50 PRINT"[147]":POKE 53280,6:POKE53281,13
  6. 52 PRINT"            BIBLE PROGRAMS"
  7. 54 PRINT"           BY STEVE WILLIAMS"
  8. 58 PRINT" PLEASE PASS THESE PROGRAM ALONG TO"
  9. 59 PRINT" CHURCH SCHOOLS OR RELIGIOUS SCHOOLS."
  10. 64 PRINT" ALL OF THESE BIBLE PROGRAMS ARE IN"
  11. 68 PRINT" BASIC. THE HIGH RESOLUTION PICTURES"
  12. 70 PRINT" WERE DONE WITH GRAPHICS MAGICIAN."
  13. 75 PRINT" SOME PROGRAMS HAVE THE LIST DISABLED"
  14. 76 PRINT" TO KEEP YOUNG USERS OUT OF THE DATA."
  15. 77 PRINT" TYPE POKE775,167 AND LIST WILL BE"
  16. 78 PRINT" ENABLED AGAIN. SOME REM STATEMENTS WITH"
  17. 79 PRINT"[145] SHIFT L MAY NEED REMOVING IN ORDER TO"
  18. 80 PRINT" ADD DIFFERENT QUESTIONS. ALL OF THESE"
  19. 81 PRINT" PROGRAMS WORK BEST ON A COLOR SCREEN."
  20. 82 PRINT" SOME MAY NOT WORK WITH AN 80 COLUMN"
  21. 83 PRINT" CARD PLUGGED IN. IF YOU ADAPT ANY OF"
  22. 84 PRINT" THE QUIZZES, PLEASE ADD 'ADAPTED BY'"
  23. 85 PRINT" AND YOUR NAME TO THE OPENING SCREEN."
  24. 86 PRINT"         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  25. 87 PRINT"         PRESS ANY KEY FOR MENU"
  26. 88 POKE198,0
  27. 90 GETA$:IFA$=""THEN90
  28. 110 PRINT"[147]":POKE53281,8:POKE53280,0
  29. 112 PRINT"        [144]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  30. 114 PRINT"          BIBLE PROGRAMS MENU"
  31. 116 PRINT"  1 - THE TEMPTATION OF JESUS"
  32. 118 PRINT"  2 - THE CROSS OF JESUS"
  33. 120 PRINT"  3 - ZACCHEUS"
  34. 122 PRINT"  4 - ZACCHEUS - WITH 3 PICTURES"
  35. 123 PRINT"        (LEAVE DISK IN COMPUTER ON THIS"
  36. 124 PRINT"         PROGRAM TO GET 3 PICTURES)"
  37. 125 PRINT"  5 - REBUILDING JERUSALEM'S WALLS"
  38. 127 PRINT"  6 - THE BIBLE 'WHO AM I' GAME"
  39. 129 PRINT"  7 - NOAH AND THE ARK GAME--GEN. 1 QUIZ"
  40. 130 PRINT"  8 - PAUL'S ESCAPE"
  41. 133 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  42. 135 PRINT"  PRESS NUMBER TO LOAD DESIRED PROGRAM "
  43. 139 POKE198,0
  44. 140 GETA$:IFA$=""THEN140
  45. 145 POKE53280,14:POKE53281,6:PRINT"[154][145]"
  46. 150 ONVAL(A$)GOTO161,162,163,164,165,167,169,170
  47. 152 GOTO140
  48. 161 L$="TEMPTATION1":GOTO180
  49. 162 L$="CROSS1":GOTO180
  50. 163 L$="ZACCHEUS1":GOTO180
  51. 164 L$="ZACCHEUS-3PICS":GOTO180
  52. 165 L$="JERUSALEM WALLS":GOTO180
  53. 167 L$="BIBLE WHO AM I":GOTO180
  54. 169 L$="NOAH WITH VOICE":GOTO180
  55. 170 L$="PAUL'S ESCAPE":GOTO180
  56. 180 POKE198,4
  57. 182 PRINT"[147]LOAD"CHR$(34)L$;:PRINTCHR$(34)",8";
  58. 184 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  59. 190 END
  60.